home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 April
/
EnigmA AMIGA RUN 06 (1996)(G.R. Edizioni)(IT)[!][issue 1996-04][Skylink CD V].iso
/
progs
/
editor
/
write-ed
/
rexx
/
privateportdemo.wrx
< prev
next >
Wrap
Text File
|
1995-05-01
|
2KB
|
45 lines
/*
*
* Script für WRITE 3.000 © 1989 - 1993 by Tim Teulings
* Dieses REXX-Script demonstriert den Umgang mit den Routinen
* OPENPORT,CLOSEPORT,WAITPORT
*
*/
OPTIONS RESULTS
IF ~show('P',"WRITE")
THEN DO
say 'Dieses Script läuft nur, wenn WRITE bereits gestartet wurde !'
exit 10
END
ADDRESS "WRITE"
'VERSIONCHECK 40000 "PivatePortDemo.wrx"'
IF RC~=0 THEN DO
exit 10
END
'NEWED ""'
ID = RESULT /* 'NEWED' gibt einen ID zurück, */
/* der von den weiteren Befehlen benötigt wird */
/* Der ID des aktuellen Textes steht auch in der */
/* Variabeln '_CurrentID',erhältlich durch : */
/* "GETVAR (_CurrentID)"; ID = RESULT */
OPENPORT ID /* PrivatePort des geffneten Fensters öffnen */
Port = RESULT
IF Port="" THEN DO /* 'OPENPORT' gibt "" zurück,wenn Port nicht */
/* geöffnet werden konnte */
"MESSAGEOK (REXX-Script\n'PrivatePortDemo'\nkonnte PrivatePort\nnicht öffnen !)"
EXIT
END
INTERPRET ADDRESS Port /* PrivatePort addressieren.Alle Komandos beziehen */
/* sich nun auf das Fenster mit diesem Port */
WINDOW 50 50 50 50 /* Öffnen eines neuen Fensters */
"MESSAGEOK (Editieren sie den Text.\nDurch Schließen des Fensters\nbeenden sie das REXX-Skript.)"
WAITPORT ID /* Wartet bis das Fenster geschlossen wurde */